* Вычисление факториала натурального числа
* Программа КОНЦЕПТ, 17.09.2010, www.gendoc.ru 

функция Факториал Число
  присвоить Индекс 2 Результат 1
  пока [Индекс] <= [Число]
     вычислить * Результат [Результат] [Индекс]
     увеличить Индекс
  цикл
  печать "Факториал [Число]! = [Результат]."
возврат

Факториал 5
Факториал 10
Факториал 20